home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / library / device / trackdisk / test.e
Encoding:
Text File  |  1995-04-12  |  587 b   |  24 lines
  1. MODULE 'oomodules/library/device/trackdisk/trackdisk'
  2.  
  3. PROC main()
  4. DEF diskette:PTR TO trackdisk, count
  5.  
  6.   NEW diskette.new()
  7.  
  8.   IF diskette.diskindrive()
  9.  
  10.     diskette.readblock(0)
  11.  
  12.     FOR count := 0 TO 15 DO WriteF(' \z\h[2] ', diskette.buffer[count])
  13.     WriteF('\n')
  14.     FOR count := 0 TO 15 DO IF diskette.buffer[count] THEN WriteF(' \c  ', diskette.buffer[count]) ELSE WriteF('    ')
  15.     WriteF('\n')
  16.     IF diskette.diskprotected() THEN WriteF('The disk is write protected.\n')
  17.   ELSE
  18.     WriteF('Please insert a disk in drive zero.\n')
  19.   ENDIF
  20.   diskette.motor(FALSE)
  21.  
  22.  
  23. ENDPROC
  24.